00100		SUBROUTINE ACCEL
00200		COMMON/A/ ROFF(27),V(2000),NP(27),PCH(27,32),
00300		1 RDEV(27),IPT(27,31),XT(27),OTH(20,16),SCAL(101)
00400		1 ,P1(27),JFM(4),COPY(30),IFM(80)
00500		1 ,FINM(6),TINST(5),ENFI(5),TEDIT(4),INVIS(27)
00600		COMMON P(30),J,L,CNT(27),BT,PL(48),MK,DF,DUR(27)
00700		1 ,IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG,IXX,ISEMI,IQT
00800		1 ,INP(144),VX(70),ISCA(12),IDAT(11),IAMP,K,KN,M,ML,CODE,IBLA
00900		COMMON/B/MOT,PR,T5,NINS,I,TP,RA,KZY,NWX,INONLY,MX,
00962		1 Y,Z,ISLAC,MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,KB,NL,RC,W,
01024		1 ZZ,CHN,YY 
01150		1 /C/LPAR,IPRN,QX,RETRO,INVRT,ICON,LCNT,
01200		1 PARENS,JZ,BY,JED,MLX,IZ,ALL,JD,LEND,QTS,ITMP,
01300		1 LP,ILIT,NLIT,KTMP,IC,RAX,RD
01400	C  /C/=26
01500	      IF(T5.EQ.1)GO TO 4020
01600	7020  RA=V(IA+K)
01700	      IF(RA.EQ.10000.)RETURN
01800	4020  RD=1  
01900	      IF(RA.LT.0)RD=-1. 
02000	      RA=RA*RD    
02100	      IF(KA.EQ.0)RA=RA-RC     
02200	      W=RA  
02300	      RB=W  
02400	      IF(W.LE.Z)GO TO 2020    
02500	      IF(Z.NE.0)GO TO 3020    
02600	      RA=RA/Y     
02700	      RB=-1.
02800	      RC=0  
02900	      GO TO 8020  
03000	3020      W=Z     
03100	      RC=W+RC     
03200	      GO TO 24    
03300	2020      RC=0    
03400	24	IF(X.NE.Y)GO TO 424
03500		RA=W/X
03600		GO TO 8020
03700	C   DUR OF TMP + BG TIME OF TMP - NOTE VALUE - 
03800	C   BG TIME OF NOTE. CHN=TBG.
03900	424	RAX=XT(J)
04000		RA=(-2.*RAX+(4.*RAX**2+8.*YY*W)**.5)/(2.*YY)
04100		XT(J)=RAX+YY*RA
04200	8020      IF(KA.EQ.0)RA=RA+PR 
04300	      KA=1  
04400	      IF(RC.NE.0)GO TO 1011   
04500	      IF(T5.EQ.1)RETURN
04600	C  T5=1 IN 'RUNIT'
04700	      V(IA+K)=RA*RD     
04800	      IF(K.EQ.IZ)RETURN     
04900	C*********** JUNE 1,71
05000	1011      IF(T5.EQ.1)GO TO 2011     
05100	      K=K+1 
05200	      IF(ZZ.NE.0)Z=Z-W  
05300	      IF((Z.GT.0).OR.(RB.EQ.-1.))GO TO 7020     
05400	      IC=IC+1     
05500	      IF(RB.EQ.W)RETURN
05600	      KA=0  
05700	      K=K-1 
05800	      RETURN
05900	2011      PR=RA   
06000		IF(K.GT.1)GO TO 9020
06100		K=I-6
06200	      ZPAR=-9900.-CHN-ZZ
06300	      DO 3011 KL=8,I     
06400	      IF((V(K).EQ.ZPAR).AND.(V(K+1).EQ.990000.))GO TO 9020    
06500	3011      K=K-1
06600	9020      W=ZZ  
06700		IF(V(K+3))K=K+3
06800	C   ABOVE IS FOR TYPED IN TEMPO CHANGES
06900		KA=K+3
07000	      ZZ=V(KA)
07100	C   DUR OF NEXT TEMPI
07200		X=V(KA+1)
07300		Y=V(KA+2)
07400	213      KA=0  
07500	      Z=ZZ  
07600		CALL SQYY(YY,X,Y,Z)
07700	      CHN=CHN+W   
07800		XT(J)=X
07900	      IF(KA.EQ.1)Z=0    
08000	      RA=PR 
08100		KA=0
08200		K=K+3
08300		GO TO 4020
08400		END